home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tj.d64 / funk rock.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  326 lines
  1. 0 PRINTCHR$(14)
  2. 1 REM FUNK MUSIC BY BRIAN PORTER ESQ
  3. 2 REM MODIFIED BY NICK SHEVCHENKO
  4. 3 REM VANCOUVER, CANADA; MARCH/84
  5. 4 PRINT"[147][158][199][160][197][160][212]":FORT=1TO700:NEXT:POKE53281,6:POKE53280,6:GOSUB20100
  6. 5 PRINT"[147][158][201][160][212]  ":FORT=1TO700:NEXT:POKE53281,6:POKE53280,6:GOSUB20100
  7. 6 PRINT"[147][158][207][160][198][160][198]":FORT=1TO700:NEXT:POKE53281,6:POKE53280,6:GOSUB20100
  8. 7 PRINT"[147][158][193][160][206][160][196]":FORT=1TO700:NEXT:POKE53281,6:POKE53280,6:GOSUB20100
  9. 8 PRINT"[147][158][194] [207] [207] [199] [201] [197]":FORT=1TO700:NEXT:POKE53281,6:POKE53280,6:GOSUB20100
  10. 92 GOTO110
  11. 93 POKE646,RND(1)*256:ONRND(1)*6+1GOSUB94,95,96,97,98,99:RETURN
  12. 94 PRINT"[147][210][201][199][200][212]-[207][206]!  ":RETURN
  13. 95 PRINT"[147][204][201][203][197] [215][207][215]!  ":RETURN
  14. 96 PRINT"[147]    [198][213][206][203][217], [205][193][206]!":RETURN
  15. 97 PRINT"[147][199][207][207][196][160][194][197][193][212]! ":RETURN
  16. 98 PRINT"[147][215][207][215], [205][193][206]!  ":RETURN
  17. 99 PRINT"[147][199][210][207][207][214][217]!    ":RETURN
  18. 100 POKEV1+1,J:POKEV1+2,K:POKEV2+1,J:POKEV2+2,K:POKEV3+1,J:POKEV3+2,K:GOTO210
  19. 110 L1=54272:L2=54279:L3=54286:H1=L1+1:H2=L2+1:H3=L3+1:V1=L1+4:V2=L2+4:V3=L3+4
  20. 150 POKEV1+1,28:POKEV1+2,10:POKEV2+1,28:POKEV2+2,10:POKEV3+1,28:POKEV3+2,10
  21. 180 T=TI:F=2:POKE54296,15
  22. 200 POKEV1,32:POKEV2,32:POKEV3,32
  23. 210 READS
  24. 215 IFS=-1THENGOSUB10000
  25. 216 IFS=-2THENJ=9:K=9:GOTO100
  26. 217 IFS=-3THENJ=28:K=10:GOTO100
  27. 218 IFS=-4THENJ=26:K=170:GOTO100
  28. 219 IFS=-5THEN20000
  29. 220 READX1,Y1,X2,Y2,X3,Y3
  30. 230 IFX1THENPOKEH1,X1:POKEL1,Y1:POKEV1,33
  31. 240 IFX2THENPOKEH2,X2:POKEL2,Y2:POKEV2,33
  32. 250 IFX3THENPOKEH3,X3:POKEL3,Y3:POKEV3,33
  33. 260 T=T+S*F
  34. 265 GOSUB93
  35. 270 IFT>TIGOTO270
  36. 280 GOTO200
  37. 290 FORJ=L1 TO 54296:POKE J,0:NEXT J:RUN
  38. 291 END
  39. 300 DATA-1,0,0,0,0,0,0
  40. 310 DATA32,4,38,4,48,4,58
  41. 320 DATA8,8,91,8,97,8,103
  42. 330 DATA16,7,112,7,119,7,126
  43. 340 DATA8,8,91,8,97,8,103
  44. 350 DATA8,7,112,7,119,7,126
  45. 360 DATA8,8,91,8,97,8,103
  46. 365 DATA16,4,38,4,48,4,58
  47. 367 DATA8,8,91,8,97,8,103
  48. 370 DATA16,7,112,7,119,7,126
  49. 380 DATA8,8,91,8,97,8,103
  50. 390 DATA8,7,112,7,119,7,126
  51. 400 DATA8,8,91,8,97,8,103
  52. 410 DATA16,4,38,4,48,4,58
  53. 420 DATA8,8,91,8,97,8,103
  54. 430 DATA16,7,112,7,119,7,126
  55. 440 DATA8,8,91,8,97,8,103
  56. 450 DATA8,7,112,7,119,7,126
  57. 460 DATA8,8,91,8,97,8,103
  58. 470 DATA16,4,38,4,48,4,58
  59. 480 DATA8,8,91,8,97,8,103
  60. 490 DATA16,7,112,7,119,7,126
  61. 500 DATA8,8,91,8,97,8,103
  62. 510 DATA8,7,112,7,119,7,126
  63. 520 DATA8,8,91,8,97,8,103
  64. 530 DATA16,5,142,5,152,5,162
  65. 540 DATA8,11,35,11,48,11,61
  66. 550 DATA16,9,235,9,247,10,3
  67. 560 DATA8,11,35,11,48,11,61
  68. 570 DATA8,9,235,9,247,10,3
  69. 580 DATA8,11,35,11,48,11,61
  70. 590 DATA16,5,142,5,152,5,162
  71. 600 DATA8,11,35,11,48,11,61
  72. 610 DATA16,9,235,9,247,10,3
  73. 620 DATA8,11,35,11,48,11,61
  74. 630 DATA-1,0,0,0,0,0,0
  75. 640 DATA32,4,38,4,48,4,58
  76. 650 DATA8,8,91,8,97,8,103
  77. 660 DATA16,7,112,7,119,7,126
  78. 670 DATA8,8,91,8,97,8,103
  79. 680 DATA8,7,112,7,119,7,126
  80. 690 DATA8,8,91,8,97,8,103
  81. 700 DATA16,4,38,4,48,4,58
  82. 705 DATA8,8,91,8,97,8,103
  83. 710 DATA16,7,112,7,119,7,126
  84. 720 DATA8,8,91,8,97,8,103
  85. 730 DATA8,7,112,7,119,7,126
  86. 740 DATA8,8,91,8,97,8,103
  87. 750 DATA16,6,61,6,71,6,81
  88. 760 DATA8,12,130,12,143,12,156
  89. 770 DATA16,11,38,11,48,11,58
  90. 780 DATA8,12,130,12,143,12,156
  91. 790 DATA8,11,38,11,48,11,58
  92. 800 DATA8,12,130,12,143,12,156
  93. 850 DATA16,5,142,5,152,5,162
  94. 860 DATA8,11,35,11,48,11,61
  95. 870 DATA16,9,235,9,247,10,3
  96. 880 DATA8,11,35,11,48,11,61
  97. 890 DATA-1,0,0,0,0,0,0
  98. 900 DATA32,4,38,4,48,4,58
  99. 910 DATA8,8,91,8,97,8,103
  100. 920 DATA16,7,112,7,119,7,126
  101. 930 DATA8,8,91,8,97,8,103
  102. 940 DATA8,7,112,7,119,7,126
  103. 950 DATA8,8,91,8,97,8,103
  104. 960 DATA16,4,38,4,48,4,58
  105. 970 DATA8,8,91,8,97,8,103
  106. 980 DATA16,7,112,7,119,7,126
  107. 990 DATA8,8,91,8,97,8,103
  108. 991 DATA8,7,112,7,119,7,126
  109. 995 DATA8,8,91,8,97,8,103
  110. 1000 DATA8,4,38,4,48,42,62
  111. 1010 DATA8,0,0,0,0,33,135
  112. 1020 DATA8,8,91,8,97,8,103
  113. 1030 DATA16,7,112,7,119,7,126
  114. 1040 DATA8,8,91,8,97,8,103
  115. 1050 DATA8,7,112,7,119,42,62
  116. 1060 DATA8,8,91,8,97,33,135
  117. 1070 DATA16,4,38,4,48,50,60
  118. 1080 DATA8,8,91,8,97,42,62
  119. 1090 DATA16,7,112,7,119,7,126
  120. 1100 DATA8,8,91,8,97,42,62
  121. 1110 DATA8,7,112,7,119,33,135
  122. 1120 DATA8,8,91,8,97,25,30
  123. 1130 DATA8,4,38,4,48,29,223
  124. 1140 DATA8,0,0,0,0,33,135
  125. 1150 DATA8,8,91,8,97,8,103
  126. 1160 DATA16,7,112,7,119,7,126
  127. 1170 DATA8,8,91,8,97,8,103
  128. 1180 DATA8,7,112,7,119,7,126
  129. 1190 DATA8,8,91,8,97,8,103
  130. 1200 DATA16,4,38,4,48,4,58
  131. 1210 DATA8,8,91,8,97,8,103
  132. 1220 DATA16,7,112,7,119,7,126
  133. 1230 DATA8,8,91,8,97,16,195
  134. 1240 DATA8,7,112,7,119,21,31
  135. 1250 DATA8,8,91,8,97,25,30
  136. 1260 DATA8,5,142,5,152,22,96
  137. 1270 DATA8,0,0,0,0,28,49
  138. 1280 DATA8,11,35,11,48,22,96
  139. 1290 DATA16,9,235,9,247,33,135
  140. 1300 DATA8,11,35,11,48,28,49
  141. 1310 DATA8,9,235,9,247,44,193
  142. 1320 DATA8,11,35,11,48,11,61
  143. 1330 DATA8,5,142,5,152,33,135
  144. 1340 DATA8,0,0,0,0,56,99
  145. 1350 DATA8,11,35,11,48,11,61
  146. 1360 DATA8,9,235,9,247,56,99
  147. 1365 DATA8,0,0,0,0,67,15
  148. 1370 DATA8,11,35,11,48,11,61
  149. 1380 DATA-1,0,0,0,0,0,0
  150. 1390 DATA24,4,38,4,48,42,62
  151. 1395 DATA8,0,0,0,0,50,60
  152. 1400 DATA8,8,91,8,97,8,103
  153. 1410 DATA8,7,112,7,119,7,126
  154. 1415 DATA8,0,0,0,0,33,135
  155. 1420 DATA8,8,91,8,97,42,62
  156. 1430 DATA8,7,112,7,119,33,135
  157. 1440 DATA8,8,91,8,97,25,30
  158. 1450 DATA16,4,38,4,48,4,58
  159. 1460 DATA8,8,91,8,97,8,103
  160. 1470 DATA16,7,112,7,119,7,126
  161. 1480 DATA8,8,91,8,97,25,30
  162. 1490 DATA8,7,112,7,119,33,135
  163. 1500 DATA8,8,91,8,97,42,62
  164. 1510 DATA8,6,61,6,71,37,162
  165. 1515 DATA8,0,0,0,0,50,60
  166. 1520 DATA8,12,130,12,143,12,156
  167. 1530 DATA16,11,38,11,48,11,58
  168. 1540 DATA8,12,130,12,143,50,60
  169. 1550 DATA8,11,38,11,48,63,75
  170. 1560 DATA8,12,130,12,143,50,60
  171. 1570 DATA8,5,142,5,152,67,15
  172. 1575 DATA8,0,0,0,0,59,190
  173. 1580 DATA8,11,35,11,48,50,60
  174. 1590 DATA16,9,235,9,247,44,193
  175. 1600 DATA8,11,35,11,48,39,223
  176. 1610 DATA-1,0,0,0,0,0,0
  177. 1620 DATA32,4,38,4,48,33,135
  178. 1630 DATA8,8,91,8,97,8,103
  179. 1640 DATA16,7,112,7,119,7,126
  180. 1650 DATA8,8,91,8,97,16,195
  181. 1660 DATA8,7,112,7,119,21,31
  182. 1670 DATA8,8,91,8,97,25,30
  183. 1690 DATA16,4,38,4,48,4,58
  184. 1700 DATA8,8,91,8,97,8,103
  185. 1710 DATA16,7,112,7,119,7,126
  186. 1720 DATA8,8,91,8,97,8,103
  187. 1730 DATA8,7,112,7,119,7,126
  188. 1740 DATA8,8,91,8,97,8,103,-2
  189. 1750 DATA8,4,38,4,48,42,62
  190. 1760 DATA8,4,38,4,48,33,135
  191. 1770 DATA8,.1,.1,.1,.1,.1,.1
  192. 1780 DATA8,4,38,4,48,4,58
  193. 1790 DATA8,4,38,4,48,4,58
  194. 1800 DATA8,.1,.1,.1,.1,.1,.1
  195. 1810 DATA8,4,38,4,48,42,62
  196. 1820 DATA8,4,38,4,48,33,135
  197. 1830 DATA8,.1,.1,.1,.1,50,60
  198. 1840 DATA8,4,38,4,48,50,60
  199. 1850 DATA8,4,38,4,48,42,62
  200. 1860 DATA8,.1,.1,.1,.1,.1,.1
  201. 1870 DATA8,4,38,4,48,4,58
  202. 1880 DATA8,.1,.1,.1,.1,42,62
  203. 1890 DATA8,4,38,4,48,33,135
  204. 1900 DATA8,.1,.1,.1,.1,25,30
  205. 1910 DATA8,4,38,4,48,29,223
  206. 1920 DATA8,4,38,4,48,33,135
  207. 1930 DATA8,.1,.1,.1,.1,.1,.1
  208. 1940 DATA8,4,38,4,48,4,58
  209. 1950 DATA8,4,38,4,48,4,58
  210. 1960 DATA8,.1,.1,.1,.1,.1,.1
  211. 1970 DATA8,4,38,4,48,4,58
  212. 1980 DATA8,4,38,4,48,4,58
  213. 1990 DATA8,.1,.1,.1,.1,.1,.1
  214. 2000 DATA8,4,38,4,48,4,58
  215. 2010 DATA8,4,38,4,48,4,58
  216. 2020 DATA8,.1,.1,.1,.1,.1,.1
  217. 2030 DATA8,4,38,4,48,4,58
  218. 2040 DATA8,.1,.1,.1,.1,16,195
  219. 2050 DATA8,4,38,4,48,21,31
  220. 2060 DATA8,.1,.1,.1,.1,25,30
  221. 2070 DATA8,5,142,5,152,22,96
  222. 2080 DATA8,5,142,5,152,16,195
  223. 2090 DATA8,.1,.1,.1,.1,.1,.1
  224. 2100 DATA8,5,142,5,152,28,49
  225. 2110 DATA8,5,142,5,152,22,96
  226. 2120 DATA8,.1,.1,.1,.1,.1,.1
  227. 2130 DATA8,5,142,5,152,33,135
  228. 2140 DATA8,5,142,5,152,28,49
  229. 2150 DATA8,.1,.1,.1,.1,.1,.1
  230. 2160 DATA8,5,142,5,152,44,193
  231. 2170 DATA8,5,142,5,152,44,193
  232. 2180 DATA8,.1,.1,.1,.1,33,135
  233. 2190 DATA8,5,142,5,152,56,99
  234. 2200 DATA8,.1,.1,.1,.1,56,99
  235. 2210 DATA8,5,142,5,152,44,193
  236. 2220 DATA8,.1,.1,.1,.1,44,193
  237. 2230 DATA8,4,38,4,48,67,15
  238. 2240 DATA8,4,38,4,48,67,15
  239. 2250 DATA8,.1,.1,.1,.1,.1,.1
  240. 2260 DATA8,4,38,4,48,33,135
  241. 2270 DATA8,4,38,4,48,33,135
  242. 2280 DATA8,.1,.1,.1,.1,.1,.1
  243. 2290 DATA8,4,38,4,48,67,15
  244. 2300 DATA8,4,38,4,48,67,15
  245. 2310 DATA8,.1,.1,.1,.1,.1,.1
  246. 2320 DATA8,4,38,4,48,33,135
  247. 2330 DATA8,4,38,4,48,33,135
  248. 2340 DATA8,.1,.1,.1,.1,.1,.1
  249. 2350 DATA8,4,38,4,48,67,15
  250. 2360 DATA8,.1,.1,.1,.1,33,135
  251. 2370 DATA8,4,38,4,48,67,15
  252. 2380 DATA8,.1,.1,.1,.1,33,135
  253. 2390 DATA8,6,61,6,71,6,81
  254. 2400 DATA8,6,61,6,71,6,81
  255. 2410 DATA8,.1,.1,.1,.1,31,165
  256. 2420 DATA8,6,61,6,71,6,81
  257. 2430 DATA8,6,61,6,71,6,81
  258. 2440 DATA8,.1,.1,.1,.1,37,162
  259. 2450 DATA8,6,61,6,71,6,81
  260. 2460 DATA8,6,61,6,71,6,81
  261. 2470 DATA8,.1,.1,.1,.1,50,60
  262. 2480 DATA8,6,61,6,71,6,81
  263. 2490 DATA8,6,61,6,71,6,81
  264. 2500 DATA8,.1,.1,.1,.1,63,75
  265. 2510 DATA8,6,61,6,71,6,81
  266. 2520 DATA8,.1,.1,.1,.1,50,60
  267. 2530 DATA8,6,61,6,71,6,81
  268. 2540 DATA8,.1,.1,.1,.1,37,162,-3
  269. 2550 DATA8,4,38,4,48,42,62
  270. 2560 DATA8,0,0,0,0,50,60
  271. 2570 DATA8,8,91,8,97,8,103
  272. 2580 DATA8,7,112,7,119,7,126
  273. 2590 DATA8,0,0,0,0,33,135
  274. 2600 DATA8,8,91,8,97,42,62
  275. 2610 DATA8,7,112,7,119,33,135
  276. 2620 DATA8,8,91,8,97,25,30
  277. 2630 DATA16,4,38,4,48,4,58
  278. 2640 DATA8,8,91,8,97,8,103
  279. 2650 DATA16,7,112,7,119,7,126
  280. 2660 DATA8,8,91,8,97,25,30
  281. 2670 DATA8,7,112,7,119,33,135
  282. 2680 DATA8,8,91,8,97,42,62
  283. 2690 DATA8,6,61,6,71,37,162
  284. 2700 DATA8,0,0,0,0,50,60
  285. 2710 DATA8,12,130,12,143,12,156
  286. 2720 DATA16,11,38,11,48,11,58
  287. 2730 DATA8,12,130,12,143,50,60
  288. 2740 DATA8,11,38,11,48,63,75
  289. 2750 DATA8,12,130,12,143,50,60
  290. 2760 DATA8,5,142,5,152,67,15
  291. 2775 DATA8,0,0,0,0,59,190
  292. 2780 DATA8,11,35,11,48,50,60
  293. 2790 DATA16,9,235,9,247,44,193
  294. 2800 DATA8,11,35,11,48,39,223
  295. 2810 DATA-1,0,0,0,0,0,0
  296. 2820 DATA32,4,38,4,48,33,135
  297. 2830 DATA8,8,91,8,97,8,103
  298. 2840 DATA16,7,112,7,119,7,126
  299. 2850 DATA8,8,91,8,97,16,195
  300. 2860 DATA8,7,112,7,119,21,31
  301. 2870 DATA8,8,91,8,97,25,30
  302. 2890 DATA16,4,38,4,48,4,58
  303. 2900 DATA8,8,91,8,97,8,103
  304. 2910 DATA16,7,112,7,119,7,126
  305. 2920 DATA8,8,91,8,97,8,103
  306. 2930 DATA8,7,112,7,119,7,126
  307. 2940 DATA8,8,91,8,97,8,103,-4
  308. 2950 DATA24,4,38,4,48,4,58,-5
  309. 10000 FORX=14TO4STEP-1.1:POKEV1,32:POKEV2,32:POKEV3,32:POKEH1,X:POKEL1,X+38
  310. 10010 POKEH2,X:POKEL2,X+48:POKEH3,X:POKEL3,X+58:POKEV1,33:POKEV2,33:POKEV3,33
  311. 10020 NEXT:RETURN
  312. 20000 PRINT"[150]           "
  313. 20001 FORX=1032TO532STEP-20:RR=X/256:R1=RR-INT(RR):POKEH1,RR:POKEL1,R1*256
  314. 20002 POKEV1,32:POKEV2,32:POKEV3,32
  315. 20005 POKEH1,RR:POKEL1,ABS(R1*256-4)
  316. 20010 POKEH2,RR:POKEL2,R1*256:POKEH3,RR:POKEL3,R1*256+4
  317. 20011 POKEV1,33:POKEV2,33:POKEV3,33
  318. 20012 NEXT:FORX=1TO4000:NEXT:GOTO290
  319. 20099 END
  320. 20100 POKE53280,0:POKE53281,0:FORT=1TO200:NEXT
  321. 20110 POKE53280,6:POKE53281,6:FORT=1TO200:NEXT
  322. 20120 POKE53280,0:POKE53281,0:FORT=1TO200:NEXT
  323. 20130 POKE53280,1:POKE53281,1:FORT=1TO200:NEXT
  324. 20140 POKE53280,0:POKE53281,0:FORT=1TO200:NEXT
  325. 20200 RETURN
  326.